home *** CD-ROM | disk | FTP | other *** search
/ Deep Throat Girls 5 / Deep Throat Girls 5.iso / mac / MAC.Dir / 00070_showpicts.ls < prev    next >
Encoding:
Text File  |  1997-02-09  |  424 b   |  19 lines
  1. on showpicts
  2.   global pictcount
  3.   puppetTransition(37)
  4.   if pictcount = 21 then
  5.     set pictcount to 1
  6.   end if
  7.   puppetSprite(7, 1)
  8.   set the stretch of sprite 7 to 0
  9.   if soundBusy(1) = 0 then
  10.     puppetSound(1, "DTGTHEME.AIF")
  11.     updateStage()
  12.   end if
  13.   if soundBusy(1) = 1 then
  14.     set pictcount to pictcount + 1
  15.     set the member of sprite 7 to member pictcount of castLib "EXTRA.CST"
  16.     updateStage()
  17.   end if
  18. end
  19.